home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / seibn1.bas < prev    next >
BASIC Source File  |  1994-06-01  |  8KB  |  150 lines
  1. 10 'SAVE "SEIBN1.BAS",A
  2. 20 '日本食品標準成分表入力
  3. 30 '          V1.0                  91.05.04
  4. 35 CONSOLE 0,24,1:CLS:COLOR 7:C150=300
  5. 40 OPEN "(128)SEIBUN.DAT" AS #1
  6. 50 FIELD #1,0   AS DAMMY$,4  AS コード$
  7. 60 FIELD #1,4   AS DAMMY$,16 AS 食品群$
  8. 70 FIELD #1,20  AS DAMMY$,32 AS 食品名$
  9. 80 FIELD #1,52  AS DAMMY$,4  AS エネルギー$
  10. 90 FIELD #1,56  AS DAMMY$,4  AS 水分$
  11. 100 FIELD #1,60  AS DAMMY$,4  AS たんぱく質$
  12. 110 FIELD #1,64  AS DAMMY$,4  AS 脂質$
  13. 120 FIELD #1,68  AS DAMMY$,4  AS 炭水化物_糖質$
  14. 130 FIELD #1,72  AS DAMMY$,4  AS 炭水化物_繊維$
  15. 140 FIELD #1,76  AS DAMMY$,4  AS 無機質_カルシウム$
  16. 150 FIELD #1,80  AS DAMMY$,4  AS 無機質_鉄$
  17. 160 FIELD #1,84  AS DAMMY$,4  AS 無機質_ナトリウム$
  18. 170 FIELD #1,88  AS DAMMY$,4  AS 無機質_カリウム$
  19. 180 FIELD #1,92  AS DAMMY$,4  AS ビタミン_Ａ_レチノール$
  20. 190 FIELD #1,96  AS DAMMY$,4  AS ビタミン_Ａ_カロチン$
  21. 200 FIELD #1,100 AS DAMMY$,4  AS ビタミン_Ａ_Ａ効力$
  22. 210 FIELD #1,104 AS DAMMY$,4  AS ビタミン_Ｂ１$
  23. 220 FIELD #1,108 AS DAMMY$,4  AS ビタミン_Ｂ２$
  24. 230 FIELD #1,112 AS DAMMY$,4  AS ビタミン_ナイアシン$
  25. 240 FIELD #1,116 AS DAMMY$,4  AS ビタミン_Ｃ$
  26. 250 FIELD #1,120 AS DAMMY$,4  AS ビタミン_Ｄ$
  27. 260 FIELD #1,124 AS DAMMY$,4  AS 廃棄率$
  28. 270 DIM SYOKUHINMEI$(C150)
  29. 275 CLS:FOR I=1 TO 10:KEY I,"        ":NEXT I
  30. 276 KEY 10,"終了"+CHR$(&H0D)
  31. 280 TOROKUSU=LOF(1):PRINT  "日本食品成分表は;"TOROKUSU;"件登録済です。"
  32. 290 'INPUT "何かキーを押して下さい。",A$
  33. 300 IF TOROKUSU=0 THEN 360
  34. 310 FOR I=1 TO TOROKUSU
  35. 320 GET #1,I
  36. 330 SYOKUHINMEI$(I)=食品名$
  37. 340 'PRINT  USING "&                                      &";食品名$;
  38. 350 NEXT I
  39. 352 PRINT "  ":PRINT " "
  40. 355 'INPUT "何かキーを押して下さい。",A$
  41. 360 CLS
  42. 370 X=0:Y=0
  43. 380 LOCATE X,Y
  44. 385 OA$=食品群$
  45. 390 INPUT "　　　食品群 　　     ",A$:LSET 食品群$                  =A$
  46. 410 IF A$="終了" THEN CLOSE:RUN "EIYOUKEI.BAS"
  47. 420 IF A$="" THEN                     LSET 食品群$                  =OA$
  48. 430 IF A$="" THEN LOCATE X+22,Y:PRINT  OA$;"                     "
  49. 440 LOCATE X+30,Y
  50. 450 INPUT "　　　食品名     　   ",A$:LSET 食品名$                  =A$
  51. 451 IF A$="終了" THEN CLOSE:RUN "EIYOUKEI.BAS"
  52. 455 IF A$="" THEN 360
  53. 460 N=SEARCH(SYOKUHINMEI$,食品名$)
  54. 470 IF N>0  THEN GOSUB 780:GOTO 490    '更新
  55. 480 IF N=-1 THEN GOSUB 500:GOTO 490    '追加
  56. 490 GOTO 360
  57. 500 'データの追加
  58. 505 INPUT "　　　エネルギー　　　",A:LSET エネルギー$               =MKS$(A)
  59. 510 INPUT "      水分    　　　  ",A:LSET 水分$                     =MKS$(A)
  60. 520 INPUT "      たんぱく質      ",A:LSET たんぱく質$               =MKS$(A)
  61. 530 INPUT "      脂質            ",A:LSET 脂質$                     =MKS$(A)
  62. 540 PRINT "      炭水化物        "
  63. 550 INPUT "        糖質　　　　　",A:LSET 炭水化物_糖質$            =MKS$(A)
  64. 560 INPUT "        繊維          ",A:LSET 炭水化物_繊維$            =MKS$(A)
  65. 570 PRINT "      無機質　        "
  66. 580 INPUT "        カルシュウム　",A:LSET 無機質_カルシウム$        =MKS$(A)
  67. 590 INPUT "　　　　鉄　　　　　　",A:LSET 無機質_鉄$                =MKS$(A)
  68. 600 INPUT "　　　　ナトリウム　　",A:LSET 無機質_ナトリウム$        =MKS$(A)
  69. 610 INPUT "　　　　カリウム　　　",A:LSET 無機質_カリウム$          =MKS$(A)
  70. 620 PRINT "      ビタミン        "
  71. 630 PRINT "      　Ａ　　　      "
  72. 640 INPUT "　　　　　レチノール　",A:LSET ビタミン_Ａ_レチノール$   =MKS$(A)
  73. 650 INPUT "　　　　　カロチン　　",A:LSET ビタミン_Ａ_カロチン$     =MKS$(A)
  74. 660 INPUT "　　　　　Ａ効力　　　",A:LSET ビタミン_Ａ_Ａ効力$       =MKS$(A)
  75. 670 INPUT "　　　　Ｂ１　　　　　",A:LSET ビタミン_Ｂ１$            =MKS$(A)
  76. 680 INPUT "　　　　Ｂ２　　　　　",A:LSET ビタミン_Ｂ２$            =MKS$(A)
  77. 690 INPUT "　　　　ナイアシン　　",A:LSET ビタミン_ナイアシン$      =MKS$(A)
  78. 700 INPUT "　　　　Ｃ　　　　　　",A:LSET ビタミン_Ｃ$              =MKS$(A)
  79. 710 INPUT "　　　　Ｄ　　　　　　",A:LSET ビタミン_Ｄ$              =MKS$(A)
  80. 720 INPUT "      破棄率　　　　　",A:LSET 廃棄率$                   =MKS$(A)
  81. 740 N=LOF(1)+1
  82. 741 LSET コード$=MKS$(N)
  83. 750 SYOKUHINMEI$(N)=食品名$
  84. 760 PUT #1,N
  85. 770 RETURN
  86. 780 'データの更新
  87. 790 GET #1,N:WN=N
  88. 1360 CLS
  89. 1365 KEY 1,"更新"+CHR$(&H0D):KEY 2,"取消"+CHR$(&H0D)
  90. 1370 X=0:Y=1:Z=1:W=40
  91. 1390 LOCATE X,Y-1 :PRINT "　１　食品群 　　      ";食品群$;"     "
  92. 1450 LOCATE X,Y+0 :PRINT "　２　食品名     　    ";食品名$;"     "
  93. 1500 LOCATE X,Y+1 :PRINT "　３　エネルギー　　　";CVS(エネルギー$);"    "
  94. 1510 LOCATE X,Y+2 :PRINT "　４　水分    　　　  ";CVS(水分$);"     "
  95. 1520 LOCATE X,Y+3 :PRINT "　５　たんぱく質      ";CVS(たんぱく質$);"     "
  96. 1530 LOCATE X,Y+4 :PRINT "　６　脂質            ";CVS(脂質$);"     "
  97. 1540 LOCATE X,Y+5 :PRINT "　　　炭水化物        "
  98. 1550 LOCATE X,Y+6 :PRINT "　７　  糖質　　　　　";CVS(炭水化物_糖質$);"     "
  99. 1560 LOCATE X,Y+7 :PRINT "　８　  繊維          ";CVS(炭水化物_繊維$);"     "
  100. 1570 LOCATE X,Y+8 :PRINT "　　　無機質　        "
  101. 1580 LOCATE X,Y+9 :PRINT "　９　  カルシュウム　";CVS(無機質_カルシウム$);"     "
  102. 1590 LOCATE X,Y+10:PRINT "１０　　鉄　　　　　　";CVS(無機質_鉄$);"     "
  103. 1600 LOCATE X,Y+11:PRINT "１１　　ナトリウム　　";CVS(無機質_ナトリウム$);"     "
  104. 1610 LOCATE X,Y+12:PRINT "１２　　カリウム　　　";CVS(無機質_カリウム$);"     "
  105. 1620 LOCATE W,Z+2 :PRINT "　　　ビタミン        "
  106. 1630 LOCATE W,Z+3 :PRINT "　　　　Ａ　　　      "
  107. 1640 LOCATE W,Z+4 :PRINT "１３　　　レチノール　";CVS(ビタミン_Ａ_レチノール$);"     "
  108. 1650 LOCATE W,Z+5 :PRINT "１４　　　カロチン　　";CVS(ビタミン_Ａ_カロチン$);"     "
  109. 1660 LOCATE W,Z+6 :PRINT "１５　　　Ａ効力　　　";CVS(ビタミン_Ａ_Ａ効力$);"     "
  110. 1670 LOCATE W,Z+7 :PRINT "１６　　Ｂ１　　　　　";CVS(ビタミン_Ｂ１$);"     "
  111. 1680 LOCATE W,Z+8 :PRINT "１７　　Ｂ２　　　　　";CVS(ビタミン_Ｂ２$);"     "
  112. 1690 LOCATE W,Z+9 :PRINT "１８　　ナイアシン　　";CVS(ビタミン_ナイアシン$);"     "
  113. 1700 LOCATE W,Z+10:PRINT "１９　　Ｃ　　　　　　";CVS(ビタミン_Ｃ$);"     "
  114. 1710 LOCATE W,Z+11:PRINT "２０　　Ｄ　　　　　　";CVS(ビタミン_Ｄ$);"     "
  115. 1720 LOCATE W,Z+12:PRINT "２１　破棄率　　　　　";CVS(廃棄率$);"     "
  116. 1730 LOCATE 0,15:PRINT "変更する項目のナンバノーを入力してください。"
  117. 1740 LOCATE 0,16:PRINT "ＰＦ１　更新　　"
  118. 1745 LOCATE 0,17:PRINT "ＰＦ２　更新しない場合                     "
  119. 1746 LOCATE 0,20:PRINT "                                      "
  120. 1747 LOCATE 0,21:PRINT "                                      "
  121. 1750 LOCATE 0,20:INPUT A$
  122. 1752 IF A$="更新" THEN PUT #1,WN:SYOKUHINMEI$(WN)=食品名$:GOTO 3800
  123. 1754 IF A$="取消" THEN 3800
  124. 1760 N=VAL(A$)
  125. 1770 IF N<1 OR N>21 THEN 1750
  126. 2390 IF N=1 THEN INPUT "食品群 　　     ",A$:LSET 食品群$=A$
  127. 2450 IF N=2 THEN INPUT "食品名     　   ",A$:LSET 食品名$=A$
  128. 2505 IF N=3 THEN INPUT "エネルギー　　　",A:LSET エネルギー$=MKS$(A)
  129. 2510 IF N=4 THEN INPUT "水分    　　　  ",A:LSET 水分$=MKS$(A)
  130. 2520 IF N=5 THEN INPUT "たんぱく質      ",A:LSET たんぱく質$=MKS$(A)
  131. 2530 IF N=6 THEN INPUT "脂質            ",A:LSET 脂質$=MKS$(A)
  132. 2550 IF N=7 THEN INPUT "糖質　　　　　",A:LSET 炭水化物_糖質$=MKS$(A)
  133. 2560 IF N=8 THEN INPUT "繊維          ",A:LSET 炭水化物_繊維$=MKS$(A)
  134. 2580 IF N=9 THEN INPUT "カルシュウム　",A:LSET 無機質_カルシウム$=MKS$(A)
  135. 2590 IF N=10 THEN INPUT "鉄　　　　　　",A:LSET 無機質_鉄$=MKS$(A)
  136. 2600 IF N=11 THEN INPUT "ナトリウム　　",A:LSET 無機質_ナトリウム$=MKS$(A)
  137. 2610 IF N=12 THEN INPUT "カリウム　　　",A:LSET 無機質_カリウム$=MKS$(A)
  138. 2640 IF N=13 THEN INPUT "レチノール　",A:LSET ビタミン_Ａ_レチノール$=MKS$(A)
  139. 2650 IF N=14 THEN INPUT "カロチン　　",A:LSET ビタミン_Ａ_カロチン$=MKS$(A)
  140. 2660 IF N=15 THEN INPUT "Ａ効力　　　",A:LSET ビタミン_Ａ_Ａ効力$=MKS$(A)
  141. 2670 IF N=16 THEN INPUT "Ｂ１　　　　　",A:LSET ビタミン_Ｂ１$=MKS$(A)
  142. 2680 IF N=17 THEN INPUT "Ｂ２　　　　　",A:LSET ビタミン_Ｂ２$=MKS$(A)
  143. 2690 IF N=18 THEN INPUT "ナイアシン　　",A:LSET ビタミン_ナイアシン$=MKS$(A)
  144. 2700 IF N=19 THEN INPUT "Ｃ　　　　　　",A:LSET ビタミン_Ｃ$=MKS$(A)
  145. 2710 IF N=20 THEN INPUT "Ｄ　　　　　　",A:LSET ビタミン_Ｄ$=MKS$(A)
  146. 2720 IF N=21 THEN INPUT "破棄率　　　　　",A:LSET 廃棄率$=MKS$(A)
  147. 2730 GOTO 1370
  148. 3800 KEY 1," ":KEY 2," "
  149. 3820 RETURN
  150.